home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / clonecd / September 93.img / Australasian Legends / Commercial / Golden Micro Solutions / Commander Demo / Commander Demo.rsrc / TEXT_5006_Activated.txt < prev    next >
Text File  |  1993-09-07  |  2KB  |  74 lines
  1. ¬†Activated -> Boolean
  2.                                                                                     Pg 20-10
  3.  
  4. Returns ¬†True in a layout procedure and a script when a process is made active. That is when the window containing the layout or script becomes the frontmost window of the frontmost process. For a script the Activated phase is executed only.
  5.  
  6. You should not place the ¬†TRACE or ¬†ALERT commands in the activated phase of the layout or script because this will cause an endless loop. If you want the Activated phase of a script to be called make sure that the Script Only If Modified checkbox is unchecked.
  7.  
  8. The following example describes how to create a floating window that contains buttons for basic record actions such as Add, Modify, Delete, and Print. The floating window also displays the name of the file. We use the command CALL¬†PROCESS to update the name of the file in the floating window each time the order of the windows is changed. Instead of repeating the following code in the layout report of each window, it is better to call a global procedure that contains:
  9.  
  10.  
  11. Case of
  12.    :(Deactivated)
  13.      ‚óäAction:=0
  14.      CALL PROCESS(‚óäDashboard)
  15.  
  16.    :(Activated)
  17.      ‚óäAction:=1
  18.      ‚óäFileshown:=¬ª[Customers]
  19.      CALL PROCESS(‚óäDashboard)
  20.  
  21.    :(Outside Call)
  22.      Case¬†of
  23.        ....
  24.         :(‚óäAction=2)
  25.            PRINT SELECTION([Customers])
  26.       End case
  27. End case
  28.  
  29.  
  30.  
  31. The layout report procedure of the floating window is:
  32.  
  33. Case of
  34.    :(Before)
  35.      `....
  36.    :(Outside Call)
  37.      Case of
  38.         :(‚óäAction=0)                ` Window has been deactivated
  39.            vFileName:="No file selected"
  40.            DISABLE BUTTON(bPrint)
  41.  
  42.               ` Here we manage the other buttons.
  43.         :(‚óäAction=1)
  44.            vFileName:=Filename(‚óäFileShown)
  45.          ¬†If (Records in selection(‚óäFileShown¬ª)>0)
  46.               ENABLE BUTTON(bPrint)
  47.            Else
  48.               DISABLE BUTTON(bPrint)
  49.            End If
  50.  
  51.       Else
  52.           `.......
  53.       End case
  54.  
  55.    :(During)
  56.        Case¬†of
  57.          :(bPrint=1)
  58.              ‚óäAction:=2
  59.              CALL PROCESS(Frontmost process(*))
  60.        End case
  61. End case
  62.  
  63.  
  64. Note the use of the interprocess variables ‚óäAction and ‚óäFile and the CALL¬†PROCESS command to create a messaging system between the different windows.
  65.  
  66.  
  67.  
  68. See also: ¬†Before,  Case¬†of,  CALL¬†PROCESS, 
  69.              ¬†Deactivated,  DISABLE¬†BUTTON, ¬†During,  
  70.                ENABLE¬†BUTTON, ¬†Filename, Frontmost¬†process
  71.  
  72.  
  73.  
  74.